home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / dosutils / eb-free.zip / FREE.PAS < prev   
Pascal/Delphi Source File  |  1996-06-20  |  108b  |  5 lines
  1. uses Dos;
  2.  
  3. begin
  4. writeln (DiskFree(0),' bytes - ',Round(DiskFree(0) / DiskSize(0) * 100),'% free');
  5. End.